home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / MacApp Documentation / MacApp.TECH$ Archives / 1990 / Nov 90 / MacApp.Tech$ 11⁄2⁄90 / 2288-Re[2] GridView Selec-Oct90 < prev    next >
Encoding:
Text File  |  1991-03-06  |  1.4 KB  |  48 lines  |  [TEXT/GEOL]
  1. Item    2152822                         31-Oct-90        11:46PST
  2.  
  3. From:   PHAROS.TECH                     Pharos Tech, Tech Staff,PRT
  4.  
  5. To:     MACAPP.TECH$                    MacApp Technical
  6.  
  7. Sub:    RE: RE:GridView Selection Prob
  8.  
  9. From: Schmitz, Scott D. on Wed, Oct 31, 1990 2:46 PM
  10. Subject: RE: RE:GridView Selection Problem
  11. To: MacApp
  12.  
  13. I tried the suggested mod to TRowSelector.ComputeAnchorCell and
  14. TColumnSelector.ComputeAnchorCell with excellent success.  Thanks!  Shift
  15. clicking in columns and rows now works as it should.
  16.  
  17. One thing I did do differently, was remove the line from both of the two
  18. procedures: clickedCell.h := 1;  There were several side effects from that line
  19. such as the anchor became 1,1 more often than not.  Below is the remodified
  20. code.
  21.  
  22. Scott Schmitz
  23. Pharos
  24.  
  25.  
  26.  Procedure TRowSelector.ComputeAnchorCell (Var clickedCell: GridCell);
  27.   OVERRIDE;
  28.  Begin
  29.   Inherited ComputeAnchorCell(clickedCell);
  30.   fAnchorCell.h := 1;
  31.   fCellSelector.ComputeAnchorCell(clickedCell);
  32.   fCellSelector.fAnchorCell.h := 1;
  33.   fAnchorCell.v := fCellSelector.fAnchorCell.v;
  34.  End;
  35.  
  36.  
  37.  Procedure TColumnSelector.ComputeAnchorCell (Var clickedCell: GridCell);
  38.   OVERRIDE;
  39.  Begin
  40.   Inherited ComputeAnchorCell(clickedCell);
  41.   fAnchorCell.v := 1;
  42.   fCellSelector.ComputeAnchorCell(clickedCell);
  43.   fCellSelector.fAnchorCell.v := 1;
  44.   fAnchorCell.h := fCellSelector.fAnchorCell.h;
  45.  End;
  46.  
  47.  
  48.